Description: Define and optionally activate a super icon button
Mapped Command: DEFINE EVENT <label> AT
FUNCTION __DefIconButton(label,Pos1,Pos2,icon,activate,shadow)
   local handle := __ScanObjects(label)          // see if we can find the object
   handle := if(handle == 0,__FindUnusedHandle(label),handle)
   if __HandleInRange(handle) > 0                // if the handle is valid
      _handles_[handle,01] := (Pos1)
      _handles_[handle,02] := (Pos2)
      _handles_[handle,03] := 0
      _handles_[handle,04] := 0
      _handles_[handle,05] := NullString         // n/a in this object type
      _handles_[handle,06] := IconButtonObject   // object type
      _handles_[handle,07] := shadow             // shadow
      _handles_[handle,08] := label              // object name
      _handles_[handle,09] := InactiveObject     // status
      _handles_[handle,10] := icon               // dGE icon number (0 through 7)
      if activate
         __ActIconButton(label)
      endif
   else                                          // otherwise handle was invalid
      __HandleError(NoHandlesLeft,label)         // branch to handle error routine
   endif                                         // if handle > 0 .and. handle <= maxobjects      // if successful in gettong a get area
RETURN(Void)